home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS224B.dsk / DEMO MENU.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  15 lines
  1. 0  REM DEMO MENU
  2. 1  CALL  PEEK(175) + PEEK(176) *256 -46: LOMEM: 24576: & "LOAD","TITLE.SCREEN":DF = 975:T =  PEEK(DF):T = T - INT(T/5) *5: POKE DF,T +1
  3. 2  POKE 216,0: NORMAL : SPEED= 255: PRINT  CHR$(21);:M$ =  CHR$(13):T$ = M$ +M$: & "DISPLAY","HGF1": FOR X = 11 TO 150  STEP 2: & "BEEP",X,1: NEXT X: FOR X = 159 TO 11  STEP  -2: & "BEEP",X,1: NEXT X: & "WAIT",5: & "BEEP",29,15: & "BEEP",39,15: POKE  -16368,0
  4. 3 M$ =  CHR$(13):T$ = M$ +M$:DF = 975: TEXT : HOME : HTAB 4: PRINT "COPR.1984 ROGER WAGNER PUB., INC.": INVERSE : VTAB 3: HTAB 9: PRINT "                      ":: HTAB 9: PRINT "   THE TOOLBOX DEMO   ": HTAB 9: PRINT "                      ": NORMAL : PRINT M$: HTAB 4: PRINT "WHICH DEMO WOULD YOU LIKE TO SEE?"M$: POKE 33,32: POKE 32,8
  5. 4  PRINT M$"1...THE TOOLBOX SERIES ITSELF"T$"2...CHART 'N GRAPH TOOLBOX"T$"3...THE DATABASE TOOLBOX"T$"4...THE VIDEO TOOLBOX"T$"5...THE WIZARD'S TOOLBOX": POKE 32,0: POKE 33,40: PRINT M$: HTAB 4: PRINT "PLEASE ENTER YOUR SELECTION (1-5)": FOR X = 1 TO 25: FOR N = 1 TO 5
  6. 5 PN = N -1 +5 *(N = 1): VTAB 9 +PN *2: HTAB 9: NORMAL : PRINT PN: VTAB 9 +N *2: HTAB 9: INVERSE : PRINT N: NORMAL : FOR WT = 1 TO 30: IF  PEEK( -16384) >127  THEN  GET A$: ON A$ =  CHR$(27) GOTO 14:C =  ASC(A$) - ASC("0"): ON C >0  AND C <6 GOTO 7: & "BEEP",25,15
  7. 6  NEXT WT: NEXT N: NEXT X:C =  PEEK(DF)
  8. 7  NORMAL : FOR X = 1 TO 5: VTAB 9 +X *2: HTAB 9: PRINT X: NEXT X: ON C GOTO 8,9,10,11,12
  9. 8 A$ = "THE TOOLBOX SERIES ITSELF":F$ = "THE TOOLBOX SERIES DEMO": GOTO 13
  10. 9 A$ = "CHART 'N GRAPH TOOLBOX":F$ = "CHART 'N GRAPH TOOLBOX DEMO": GOTO 13
  11. 10 A$ = "THE DATABASE TOOLBOX":F$ = "THE DATABASE TOOLBOX DEMO": GOTO 13
  12. 11 A$ = "THE VIDEO TOOLBOX":F$ = "THE VIDEO TOOLBOX DEMO": GOTO 13
  13. 12 A$ = "THE WIZARD'S TOOLBOX":F$ = "THE WIZARD'S TOOLBOX DEMO": GOTO 13
  14. 13  VTAB 9 +C *2: HTAB 9: SPEED= 100: INVERSE : PRINT C"..."A$: NORMAL : SPEED= 255: VTAB 23: HTAB 10: PRINT "ONE MOMENT PLEASE...": & "BEEP",29,15: & "BEEP",39,15: VTAB 20: & "RUN",F$
  15. 14  PRINT : PRINT "BYE!...": END